home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 2 / CU Amiga Magazine's Super CD-ROM 02 (1996)(EMAP Images)(GB)[!][issue 1996-04].iso / magazine / amiga_e / ged-e / ec_macfilename.rexx < prev    next >
OS/2 REXX Batch file  |  1994-11-03  |  1KB  |  35 lines
  1. /* $VER: 1.0, ©1994 BURGHARD Eric.                  */
  2. /* Request multiple Macros file name for Mac2E 4.0  */
  3.  
  4. options results                             /* enable return codes     */
  5.                                             /* not started by GoldEd ? */
  6. if (LEFT(ADDRESS(), 6) ~= "GOLDED") then address 'GOLDED.1'
  7. 'LOCK CURRENT QUIET'                        /* lock GUI, gain access   */
  8. if rc then exit
  9. options failat 6                            /* ignore warnings         */
  10. signal on syntax                            /* ensure clean exit       */
  11.  
  12. 'QUERY FILE VAR NAME'
  13. if (upper(right(name,2)))='.E' then do
  14.   if ~exists("T:E") then address command 'Makedir T:E'
  15.   name=left(name,length(name)-2)
  16.   macfile='T:E/'name'.mcf'
  17.   macpath='T:E/'name'.mcp'
  18.   if ~exists(macpath) then do
  19.     ok=open(fhandle,macpath,"write")
  20.     ok=writeln(fhandle,"EDEVICE:PreAnalyzedMacroFiles")
  21.     ok=close(fhandle)
  22.   end
  23.   address command 'EDEVICE:RtRequest 'macfile' 'macpath' TITLE="Select macros definitions files" EXIST'
  24.   if rc~=0 then 'REQUEST STATUS="Prev macros definitions filename(s) unchanged"'
  25. end
  26. else 'REQUEST STATUS=" E Sources names must end with '.e'"'
  27. 'UNLOCK'
  28. exit
  29.  
  30. syntax:
  31. say "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-("
  32. 'UNLOCK'
  33. exit
  34.  
  35.